home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Disk 64 1997 2
/
Power_Disk_64_97-02_1997-09_Lagune_de_Side_B.d64
/
flyin' high
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
28KB
|
1,125 lines
1 rem *********************************
2 rem * *
3 rem * fly high *
4 rem * *
5 rem *(w)/(c) in 1997 by lagune soft*
6 rem * *
7 rem *the grandmaster is watching you*
8 rem * *
9 rem *********************************
10 poke53280,12:poke53281,11:a=50:b=a:f=a:l=a:n=a:w=0:t=8:al=20:y=1977:ge=25
12 gosub9998:print"1 = [211]tart"
15 print"2 = [197]instellungen"
16 gosub9996
17 ifa$="1"then100
20 ifa$="2"then50
21 goto16
50 rem einstellungen
51 gosub9998:gosub9800:gosub20000
52 print"[197]instellungen: ([205]enu = 1) [183][183][183][183][183][183][183][183][183][183][183][183][183]"
53 print"[211]taerken der [211]pringer zu [194]eginn:"
54 print"([193])nfahr(t) : "a"%"
55 print"[193](b)sprun(g) : "b"%"
56 print"([198])lugphas(e) : "f"%"
57 print"([204])and(u)ng : "l"%"
58 print"([206])ervenstaer(k)e: "n"% ([202])a(h)r : "y+al
59 print"[212]aste = +/-"
60 print"[212]aste & [211]hift = +5/-5 (ausser [202]ahr)"
61 print"[212]aste & [195]= = +10/-10 (ausser [202]ahr)"
62 gosub9996
63 ifa$="a"thena=a+1
64 ifa$="t"thena=a-1
65 ifa$="[193]"thena=a+5
66 ifa$="[212]"thena=a-5
67 ifa$="[176]"thena=a+10
68 ifa$="[163]"thena=a-10
69 ifa$="b"thenb=b+1
70 ifa$="g"thenb=b-1
71 ifa$="[194]"thenb=b+5
72 ifa$="[199]"thenb=b-5
73 ifa$="[191]"thenb=b+10
74 ifa$="[165]"thenb=b-10
75 ifa$="f"thenf=f+1
76 ifa$="e"thenf=f-1
77 ifa$="[198]"thenf=f+5
78 ifa$="[197]"thenf=f-5
79 ifa$="[187]"thenf=f+10
80 ifa$="[177]"thenf=f-10
81 ifa$="l"thenl=l+1
82 ifa$="u"thenl=l-1
83 ifa$="[204]"thenl=l+5
84 ifa$="[213]"thenl=l-5
85 ifa$="[182]"thenl=l+10
86 ifa$="[184]"thenl=l-10
87 ifa$="n"thenn=n+1
88 ifa$="k"thenn=n-1
89 ifa$="[206]"thenn=n+5
90 ifa$="[203]"thenn=n-5
91 ifa$="[170]"thenn=n+10
92 ifa$="[161]"thenn=n-10
93 ifa$="1"then12
94 ifa$="j"theny=y+1
95 ifa$="h"theny=y-1
99 goto50
100 rem one-player-mode
101 gosub9800:gosub10000:gosub11000
102 z=0:gosub9998:print"[206]ationenwahl: [183][183][183][183][183][183][183][183][183][183][183][183]"
103 print"[193] = [196]eutschland [194] = [198]innland"
104 print"[195] = [206]orwegen [196] = [207]esterreich"
105 print"[197] = [202]apan [198] = [211]lowenien"
106 print"[199] = [211]chweiz [200] = [212]schechei"
107 print"[201] = [208]olen"
108 print"[202] = [210]ussland [203] = [198]rankreich"
109 print"[204] = [211]chweden [205] = [201]talien"
110 print"[206] = [213].[211].[193]."
111 gosub9996
112 ifa$="a"thenn$="[199]ermany"
113 ifa$="b"thenn$="[198]inland"
114 ifa$="c"thenn$="[206]orway"andn3$="[204]agune"
115 ifa$="d"thenn$="[193]ustria"
116 ifa$="e"thenn$="[202]apan"
117 ifa$="f"thenn$="[211]lowenia"andn3$="[204]agune"
118 ifa$="g"thenn$="[211]uisse"andn3$="[204]agune"
119 ifa$="h"thenn$="[212]schechy"andn3$="[204]agune"
121 ifa$="i"thenn$="[208]oland"andn3$="[204]agune"
122 ifa$="j"thenn$="[210]ussia"andn3$="[204]agune"
123 ifa$="k"thenn$="[198]rance"andn3$="[204]agune"
124 ifa$="l"thenn$="[211]weden"andn3$="[204]agune"
125 ifa$="m"thenn$="[201]taly"andn3$="[204]agune"
126 ifa$="n"thenn$="[213][211][193]"andn3$="[204]agune"
128 print"[199]ewaehlte [206]ation: "n$
129 print"[203]orrekt ([202]/[206]) ?"
130 gosub9996
131 ifa$="j"then140
132 ifa$="n"then102
133 goto130
140 gosub9998
141 input"[214]orname ";vn$
142 input"[206]achname ";nn$
143 print"[194]eginn der ersten [211]aison ..."
144 gosub9996
150 ift=8thengosub20000
151 ift=8thenw=w+1:ift=8thenui=0:ift=8thent=1:rem hauptmenu
152 ifw=17thengosub12000
153 ift=6then1000
154 gosub9998:ta=0:tb=0:print"[200]auptmenu: [183][183][183][183][183][183][183][183][183]"
155 printvn$" "nn$:print"[206]ation: "n$:print"[215]oche :"w:print"[212]ag :"t:print"[193]lter :"al:print"[202]ahr :"y+al
156 print"1 = [212]raining 2 = [197]reignisse":ift=7then7005
157 print"3 = [213]eberblick":ifxa=2andt=7then1070
158 print"4 = [206]aechste [215]oche 5 = [197][206][196][197]":rc$="":xa=0:rf$="":re$=""
159 input"[215]as nun ";x
160 ifx<1orx>5then154
161 ifx=1then300
162 ifx=2then700
163 ifx=3then200
165 ifx=4then600
166 ifx=5then650
200 rem ueberblick
201 gosub9998
202 print"[213]eberblick: [183][183][183][183][183][183][183][183][183][183]"
203 print"1 = [210]angliste 2 = [215]ettkaempfe"
204 print"3 = [215]ochenplanung 4 = [211]tatistik"
205 print"5 = [200]auptmenu"
206 input"[215]as nun";x
207 ifx<1orx>5then200
208 ifx=1then2000
209 ifx=2then220
210 ifx=3then500
211 ifx=4then900
212 ifx=5then154
220 rem wettkaempfe
221 gosub9998
222 print"[215]oche [215]ettkampf "
223 gosub9920
224 print" 1 2 normale [211]pringen"
225 print" 2 2 normale [211]pringen"
226 print" 3 2 normale [211]pringen"
227 print" 4 2 [212]ournee-[211]pringen"
228 print" 5 2 [212]ournee-[211]pringen"
229 print" 6 2 normale [211]pringen"
230 print" 7 2 normale [211]pringen"
231 print" 8 2 normale [211]pringen"
232 print" 9 2 [211]ki-[198]liegen"
233 print" 10 2 normale [211]pringen"
234 print" 11 frei"
235 print" 12 [215][205]-[203]leinschanze"
236 print" 13 [215][205]-[199]rossschanze"
238 print" 14 2 normale [211]pringen"
239 print" 15 2 normale [211]pringen"
240 print" 16 2 [211]ki-[198]liegen"
248 gosub9996
249 goto200
300 rem training
301 gosub9998
302 print"[212]raining: [183][183][183][183][183][183][183][183]"
303 print"1 = [193]nfahrt 2 = [193]bsprung"
304 print"3 = [198]lugphase 4 = [204]andung"
305 print"5 = [200]auptmenu"
306 input"[215]as nun";x
307 ifx<1orx>5then300
308 ifx=1then320
309 ifx=2then360
310 ifx=3then400
311 ifx=4then440
312 ifx=5then154
320 gosub9998
321 print"[193]nfahrt: [183][183][183][183][183][183][183]"
322 print"[204]eistung:"a"%
323 [153]"(NULL)rainieren (mid$/(NULL)) ?"
324 [141]9996
325 [139]a$[178]"j"[167]330
326 [139]a$[178]"n"[167]300
327 [137]324
330 ug[178]1:og[178]5:[141]9990
331 a1[178]z2
332 ug[178]1:og[178]7:[141]9990
333 [139]z2[178]1[167]350
334 [139]z2[178]2[167]350
335 [139]z2[178]3[167]340
336 [139]z2[178]4[167]340
337 [139]z2[178]5[167]340
338 [139]z2[178]6[167]340
339 [139]z2[178]7[167]350
340 a[178]a[170]a1:[139]a[177]100[167]a[178]100
341 [153]"str$as (NULL)raining lief gut."
342 [153]"(NULL)eue (NULL)eistung:"a"%
343 t=t+1
344 gosub9996
345 goto150
350 a=a-a1:ifa<0thena=0
351 print"[196]as [212]raining lief mies."
352 print"[206]eue [204]eistung:"a"%
353 t[178]t[170]1
354 [141]9996
355 [137]150
360 [141]9998
361 [153]"atnbsprung: usrusrusrusrusrusrusrusr"
362 [153]"(NULL)eistung:"b"%
363 print"[212]rainieren ([202]/[206]) ?"
364 gosub9996
365 ifa$="j"then370
366 ifa$="n"then300
367 goto364
370 ug=1:og=5:gosub9990
371 b1=z2
372 ug=1:og=7:gosub9990
373 ifz2=1then390
374 ifz2=2then390
375 ifz2=3then380
376 ifz2=4then380
377 ifz2=5then380
378 ifz2=6then380
379 ifz2=7then390
380 b=b+b1:ifb>100thenb=100
381 print"[196]as [212]raining lief gut."
382 print"[206]eue [204]eistung:"b"%
383 t[178]t[170]1
384 [141]9996
385 [137]150
390 b[178]b[171]b1:[139]b[179]0[167]b[178]0
391 [153]"str$as (NULL)raining lief mies."
392 [153]"(NULL)eue (NULL)eistung:"b"%
393 t=t+1
394 gosub9996
395 goto150
400 gosub9998
401 print"[198]lugphase: [183][183][183][183][183][183][183][183][183]"
402 print"[204]eistung:"f"%
403 [153]"(NULL)rainieren (mid$/(NULL)) ?"
404 [141]9996
405 [139]a$[178]"j"[167]410
406 [139]a$[178]"n"[167]300
407 [137]404
410 ug[178]1:og[178]5:[141]9990
411 f1[178]z2
412 ug[178]1:og[178]7:[141]9990
413 [139]z2[178]1[167]430
414 [139]z2[178]2[167]430
415 [139]z2[178]3[167]420
416 [139]z2[178]4[167]420
417 [139]z2[178]5[167]420
418 [139]z2[178]6[167]420
419 [139]z2[178]7[167]430
420 f[178]f[170]f1:[139]f[177]100[167]f[178]100
421 [153]"str$as (NULL)raining lief gut."
422 [153]"(NULL)eue (NULL)eistung:"f"%
423 t=t+1
424 gosub9996
425 goto150
430 f=f-f1:iff<0thenf=0
431 print"[196]as [212]raining lief mies."
432 print"[206]eue [204]eistung:"f"%
433 t[178]t[170]1
434 [141]9996
435 [137]150
440 [141]9998
441 [153]"(NULL)andung: usrusrusrusrusrusrusr"
442 [153]"(NULL)eistung:"l"%
443 print"[212]rainieren ([202]/[206]) ?"
444 gosub9996
445 ifa$="j"then450
446 ifa$="n"then300
447 goto444
450 ug=1:og=5:gosub9990
451 l1=z2
452 ug=1:og=7:gosub9990
453 ifz2=1then470
454 ifz2=2then470
455 ifz2=3then460
456 ifz2=4then460
457 ifz2=5then460
458 ifz2=6then460
459 ifz2=7then470
460 l=l+l1:ifl>100thenl=100
461 print"[196]as [212]raining lief gut."
462 print"[206]eue [204]eistung:"l"%
463 t[178]t[170]1
464 [141]9996
465 [137]150
470 l[178]l[171]l1:[139]l[179]0[167]l[178]0
471 [153]"str$as (NULL)raining lief mies."
472 [153]"(NULL)eue (NULL)eistung:"l"%
473 t=t+1
474 gosub9996
475 goto150
500 rem wochenplanung
501 gosub9998
502 print"[215]ochenplanung: [183][183][183][183][183][183][183][183][183][183][183][183][183]"
503 print"1 = [193]ktuelle [208]lanung 2 = [206]eue [208]lanung"
504 print"3 = [200]auptmenu"
505 input"[215]as nun ";x
506 ifx<1orx>3then500
507 ifx=1then540
508 ifx=2then520
509 ifx=3then154
515 print"[196]ies [215]oche ist nicht verplanungs- moeglich !"
516 gosub9996
517 goto520
520 gosub9998
521 print"[206]eue [208]lanung: [183][183][183][183][183][183][183][183][183][183][183][183]"
522 input"[215]elche [215]oche neu planen";x
523 ifx<1orx>16then520
524 ifx>10andx<14then515
525 print"[212]raining oder [215]ettkampf ([212]/[215]) ?"
526 gosub9996
527 ifa$="t"then530
528 ifa$="w"then535
529 goto526
530 ifx>10then533
531 v=x:e$(v)="[212]raining"
532 goto500
533 v=x-10:f$(v)="[212]raining"
534 goto500
535 ifx>10then538
536 v=x:e$(v)="[215]ettkampf"
537 goto500
538 v=x-10:f$(v)="[215]ettkampf"
539 goto500
540 gosub9998
541 print"[193]ktuelle [208]lanung: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
542 print"[215]oche [208]lanung "
543 gosub9920
544 print"1 "e$(1)
545 print"2 "e$(2)
546 print"3 "e$(3)
547 print"4 "e$(4)
548 print"5 "e$(5)
549 print"6 "e$(6)
550 print"7 "e$(7)
551 print"8 "e$(8)
552 print"9 "e$(9)
553 print"10 "e$(10)
554 print"11 frei"
555 print"12 [215][205]-[203]leinschanze"
556 print"13 [215][205]-[199]rossschanze"
557 print"14 "f$(4)
558 print"15 "f$(5)
559 print"16 "f$(6)
560 gosub9996
561 goto500
600 rem naechste woche
601 t=6:xa=2:goto1070
650 rem ende
651 gosub9998
652 print"[197]cht ([202]/[206]) ?????????"
653 gosub9996
654 ifa$="n"then152
655 sys64738
700 rem ereignisse
701 ug=1:og=7:gosub9990
702 ifz2=1then710
703 ifz2=2then720
704 ifz2=3then730
705 ifz2=4then740
706 ifz2=5then750
707 ifz2=6or7then761
710 gosub9998:print"[193]nfahrt-[212]raining: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
711 ug=1:og=3:gosub9990
712 ifz2=1then717
713 print"[196]ein [212]rainer meint,du solltest oefter im[211]tehen scheissen.[214]ielleicht wuerde"
714 print"sich dann endlich mal deine [193]nfahrt ver-bessern ! ([193]nfahrt = -5 %)"
715 a=a-5:t=t+1:ifa<0thena=0
716 gosub9996:goto150
717 print"[212]op-elegant gleitest du den [193]blauf hinunter ! [196]ein [212]rainer freut sich"
718 print"ueber 5 % [214]erbesserung !":a=a+5:ifa>100thena=100
719 t=t+1:gosub9996:goto150
720 gosub9998:print"[193]bsprung-[212]raining: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
721 ug=1:og=3:gosub9990:ifz2=1then726
722 print"[203]opfschuettelnd meint dein [212]rainer,dass du einfach nicht aus dem [193]rsch"
723 print"kommst.[196]ein [193]bsprung verschlechtert sichum horrende 5 % !"
724 b=b-5:ifb<0thenb=0
725 t=t+1:gosub9996:goto150
726 print"[215]ie ein [198]rosch hebst du vom [211]chanzen- tisch ab ! [196]u siehst die 5%ige"
727 print"[214]erbesserung genau so gerne,wie dein [212]rainer !":b=b+5:t=t+1
728 ifb>100thenb=100
729 gosub9996:goto150
730 gosub9998:print"[198]lugphasen-[212]raining: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
731 ug=1:og=3:gosub9990
732 ifz2=1then737
733 print"[197]in [211]tein faellt vom [194]oden ... ([198]lug- phase = -5 %)"
735 f=f-5:iff<0thenf=0
736 t=t+1:gosub9996:goto150
737 print"[196]ort am [200]immel - ein [213][198][207] ? [197]in [211]uperman?[206]ein,es ist "vn$" "nn$" !"
738 print"([198]lugphase = +5 %)":f=f+5:t=t+1:iff>100thenf=100
739 gosub9996:goto150
740 gosub9998:print"[204]andungs-[212]raining: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
741 ug=1:og=3:gosub9990
742 ifz2=1then746
743 print"[211]platsch !!! ([204]andung = -5 %)"
744 l=l-5:ifl<0thenl=0
745 t=t+1:gosub9996:goto150
746 print"[199]razioes wie ein [215]eissflog,[198]inne,[202]apaneroder was es sonst noch gibt - dein"
747 print"[212]rainer ist stark begeistert ! ([204]andung = +5 %)":l=l+5:t=t+1
748 ifl>100thenl=100
749 gosub9996:goto150
750 gosub9998:print"([206]ervende) [197]rfahrung: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
751 ug=1:og=3:gosub9990:ifz2=1then756
752 print"[193]ls du heute beim [212]raining ganz oben standest,bekamst du ploetzlich"
753 print"einen [193]nfall panischer [200]oehenangst.[196]ein [212]rainer sieht dies fuer deine [211]ki-"
754 print"[211]prung-[203]arriere nicht gerade positiv.":n=n-5:ifn<0thenn=0
755 t=t+1:gosub9996:goto150
756 print"[215]ie du beim heutigen [212]raining von einer [215]indboee erfasst wurdest und fast"
757 print"ganz,ganz schlimm gestuerzt waerst,hast du blitzschnell reagiert und den"
758 print"[211]turz wunderbar abgefangen.[196]ein [212]rainer meint,dies zeigte deine [203]lasse !"
759 n=n+5:t=t+1:ifn>100thenn=100
760 gosub9996:goto150
761 gosub9998:print"[197]inschnitt der [203]arriere: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
762 ug=1:og=3:gosub9990:ifz2=1then766
763 print"[196]er heutige schwere [211]turz beendete deine[211]aison vorzeitig.[196]ie schwere [214]er-"
764 print"letzung duerfte auch dein [203]arriereende naeher gebracht haben !"
765 goto800
766 print"[198]risch wie nie fuehlst du dich derzeit. [196]ein [203]arriereende soll noch ein"
767 print"bisschen laenger als geplant warten !":ge=ge+1:ifge>30thenge=30
768 t=t+1:gosub9996:goto150
800 t=8:w=16:ge=ge-1
801 ug=1:og=10:gosub9990:ifwm$(al-19)<>""then803
802 wm$(al-19)=v1$(z2):w8$(al-19)=n1$(z2):w9$(al-19)=m1$(z2)
820 ug=1:og=10:gosub9990:ifmw$(al-19)<>""then822
821 mw$(al-19)=v2$(z2):m8$(al-19)=n2$(z2):m9$(al-19)=m2$(z2)
822 ug=1:og=9:gosub9990:ifot$(al-19)<>""then824
823 ot$(al-19)=vn$(z2):t8$(al-19)=nn$(z2):t9$(al-19)=mm$(z2)
824 ug=1:og=9:gosub9990:iffw$(al-19)<>""then826
825 fw$(al-19)=vn$(z2):f8$(al-19)=nn$(z2):f9$(al-19)=mm$(z2)
826 re$="[202]":gosub1370:gosub9996:goto150
900 ab=-4:rem statistik
901 ab=ab+5:gosub9998:gosub9910
902 print"[212]ournee-[211]ieger: [183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
903 forz=abtoal-19
904 printy+z+19" : "ot$(z)" "t8$(z)
905 print"[206]ation : "t9$(z)"
906 [139]z[178]ab[170]4[167]909
907 [130]z
908 [141]9996:[137]910
909 [141]9996:[137]901
910 ab[178][171]4
911 ab[178]ab[170]5:[141]9998:[141]9910
912 [153]"asclug-(NULL)ieger: usrusrusrusrusrusrusrusrusrusrusr"
913 [129]z[178]ab[164]al[171]19
914 [153]y[170]z[170]19" : "fw$(z)" "f8$(z)
915 [153]"(NULL)ation : "f9$(z)"
916 ifz=ab+4then919
917 nextz
918 gosub9996:goto920
919 gosub9996:goto911
920 ab=-4
921 ab=ab+5:gosub9998:gosub9910
922 print"[215]eltmeister-[203]leinschanze: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
923 forz=abtoal-19
924 printy+z+19" : "wm$(z)" "w8$(z)
925 print"[206]ation : "w9$(z)"
926 [139]z[178]ab[170]4[167]929
927 [130]z
928 [141]9996:[137]940
929 [141]9996:[137]921
940 ab[178][171]4
941 ab[178]ab[170]5:[141]9998:[141]9910
942 [153]"(NULL)eltmeister-chr$rossschanze: usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
943 [129]z[178]ab[164]al[171]19
944 [153]y[170]z[170]19" : "mw$(z)" "m8$(z)
945 [153]"(NULL)ation : "m9$(z)"
946 ifz=ab+4then949
947 nextz
948 gosub9996:goto950
949 gosub9996:goto941
950 goto200
1000 rem tag 6
1001 ifw>10then1010
1002 ife$(w)="[212]raining"then1070
1003 ife$(w)="[215]ettkampf"then1050
1010 x=w-10
1011 iff$(x)="[212]raining"then1070
1012 iff$(x)="[215]ettkampf"then1050
1013 iff$(x)="[215][205]"then3000
1050 v$="":rem differenzierung
1053 ifw=9then1080
1054 ifw=16then1080
1055 goto1100
1070 ifw=11then1072
1071 rc$="c":rf$="[202]":gosub9800:goto1050
1072 ui=2:goto154
1080 rem fliegen
1081 v$="[202]"
1082 goto1100
1100 rem wettkampf
1101 x1=0:x2=0:x3=0:s1=9999:s2=9999:s3=9999:ra$="":rd$="":ifrc$="c"then1103
1102 gosub9998:print"[209]ualifikation 1.[212]ag: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1103 forz=1to29:ifz>10then1123
1104 ug=1:og=2:gosub9990
1105 we(z)=a(z)+2*b(z)+2*f(z)+l(z)+n(z)
1106 we(z)=we(z)/7
1107 we(z)=we(z)*z1:ifv$="[202]"thenwe(z)=we(z)+50:ifra$="wm"thenwe(z)=we(z)-20
1108 ifra$="w[205]"thenwe(z)=we(z)+20:ug=0.1:og=1:gosub9990
1109 h(z)=2*f(z)+l(z)
1110 h(z)=h(z)/15
1111 h(z)=h(z)*z1
1112 p1=we(z)+h(z)
1113 p(z)=int(p1):ifdn$(z)="ok"thenreturn
1114 nextz
1123 v=z-10:ifz>20then1143
1124 ug=1:og=2:gosub9990
1125 w2(v)=a2(v)+2*b2(v)+2*f2(v)+l2(v)+n2(v)
1126 w2(v)=w2(v)/7
1127 w2(v)=w2(v)*z1:ifv$="[202]"thenw2(v)=w2(v)+50:ifra$="wm"thenw2(v)=w2(v)-20
1128 ifra$="w[205]"thenw2(v)=w2(v)+20:ug=0.1:og=1:gosub9990
1129 h2(v)=2*f2(v)+l2(v)
1130 h2(v)=h2(v)/15
1131 h2(v)=h2(v)*z1
1132 p1=w2(v)+h2(v)
1133 p2(v)=int(p1):ifd2$(v)="ok"thenreturn
1134 nextz
1143 x=z-20
1144 ug=1:og=2:gosub9990
1145 w3(x)=a3(x)+2*b3(x)+2*f3(x)+l3(x)+n3(x)
1146 w3(x)=w3(x)/7
1147 w3(x)=w3(x)*z1:ifv$="[202]"thenw3(x)=w3(x)+50:ifra$="wm"thenw3(x)=w3(x)-20
1148 ifra$="w[205]"thenw3(x)=w3(x)+20:ug=0.1:og=1:gosub9990
1149 h3(x)=2*f3(x)+l3(x)
1150 h3(x)=h3(x)/15
1151 h3(x)=h3(x)*z1
1152 p1=w3(x)+h3(x)
1153 p3(x)=int(p1):ifd3$(x)="ok"thenreturn
1154 nextz
1163 ifrc$="c"then7000
1164 ug=1:og=2:gosub9990
1165 w4=a+2*b+2*f+l+n
1166 w4=w4/7
1167 w4=w4*z1:ifv$="[202]"thenw4=w4+50:ifra$="wm"thenw4=w4-20
1168 ifra$="w[205]"thenw4=w4+20:ug=0.1:og=1:gosub9990
1169 h4=2*f+l
1170 h4=h4/15
1171 h4=h4*z1
1172 p1=w4+h4
1173 p4=int(p1):ifdn$="ok"thenreturn
1180 ifx1=1then1190:rem sortierung
1181 z=0
1182 z=z+1
1183 fors=z+1to10
1184 ifp(z)<p(s)then1187
1185 nexts
1186 s1=p(z):s1$=v1$(z):l1$=n1$(z):w1=we(z):ma$=m1$(z):goto1190
1187 ifz<>9then1182
1188 s1$=v1$(10):l1$=n1$(10):s1=p(10):w1=we(10):ma$=m1$(10):z=10
1190 ifx2=1then1200
1191 r=0
1192 r=r+1
1193 fors=r+1to10
1194 ifp2(r)<p2(s)then1197
1195 nexts
1196 s2=p2(r):s2$=v2$(r):l2$=n2$(r):w2=w2(r):mb$=m2$(r):goto1200
1197 ifr<>9then1192
1198 s2$=v2$(10):l2$=n2$(10):s2=p2(10):w2=w2(10):mb$=m2$(10):r=10
1200 ifx3=1then1209
1201 k=0
1202 k=k+1
1203 fors=k+1to9
1204 ifp3(k)<p3(s)then1207
1205 nexts
1206 s3=p3(k):s3$=vn$(k):l3$=nn$(k):w3=w3(k):mc$=mm$(k):goto1209
1207 ifk<>8then1202
1208 s3$=vn$(9):l3$=nn$(9):s3=p3(9):w3=w3(9):mc$=mm$(9):k=9
1209 x1=1:x2=1:x3=1
1210 ifs1>s2then1212
1211 ifs2>s3then1214
1212 ifs1>s3then1215
1213 ifs3>p4then1230
1214 ifs2>p4then1225
1215 ifs1>p4then1220
1216 ifwe$="ok"then1300
1217 c=c+1:s(c)=p4:s$(c)=vn$:l$(c)=nn$:w1(c)=w4:ifrb$="[202]"thenap=ap+(11-c)
1218 p4=-c:dn$="ok":m$(c)=n$:ifc=10then1249
1219 goto1210
1220 ifwe$="ok"then1305
1221 c=c+1:s(c)=s1:s$(c)=s1$:l$(c)=l1$:w1(c)=w1:m$(c)=ma$
1222 dn$(z)="ok":p(z)=-c:ifrb$="[202]"thena4(z)=a4(z)+(11-c)
1223 ifc=10then1249
1224 x1=0:goto1180
1225 ifwe$="ok"then1310
1226 c=c+1:s(c)=s2:s$(c)=s2$:l$(c)=l2$:w1(c)=w2:m$(c)=mb$
1227 d2$(r)="ok":p2(r)=-c:ifrb$="[202]"thena5(z)=a5(z)+(11-c)
1228 ifc=10then1249
1229 x2=0:goto1180
1230 ifwe$="ok"then1315
1231 c=c+1:s(c)=s3:s$(c)=s3$:l$(c)=l3$:w1(c)=w3:m$(c)=mc$
1232 d3$(k)="ok":p3(k)=-c:ifrb$="[202]"thena6(z)=a6(z)+(11-c)
1233 ifc=10then1249
1234 x3=0:goto1180
1249 ifrc$="c"then5000
1250 ifra$="[202]"then2070:rem ergebnisse
1251 print"[211]pringer/[206]ation [215]eite/[208]unkte":we$="ok":c=0
1252 gosub9920:ws=ws+1
1253 forz=1to10
1254 printz:print"[145]."left$(s$(z),1)"."l$(z)" ("left$(m$(z),3)")
1255 [153]"on"[181](w1(z))
1256 [153]"onm /"s(z)
1257 [130]z
1258 [141]9996
1259 [141]9700
1260 x1[178]0:x2[178]0:x3[178]0:[139]dn$[178]"ok"[167]n[178]n[170]2:[143] durchgaenge
1261 [129]z[178]1[164]10
1262 [139]dn$(z)[178]"ok"[167][141]1104
1263 [139]ws[178]2[167]p(z)[178]p(z)[170]p4(z)
1264 [130]z
1271 [129]v[178]1[164]10
1272 [139]d2$(v)[178]"ok"[167][141]1124
1273 [139]ws[178]2[167]p2(v)[178]p2(v)[170]p6(v)
1274 [130]v
1281 [129]x[178]1[164]9
1282 [139]d3$(x)[178]"ok"[167][141]1144
1283 [139]ws[178]2[167]p3(x)[178]p3(x)[170]p7(x)
1284 [130]x
1285 [139]dn$[178]"ok"[167][141]1164
1286 [139]ws[178]2[167]p4[178]p4[170]p8
1287 [139]dn$[179][177]"ok"[175]rf$[179][177]"mid$"[167]n[178]n[171]2
1288 [139]n[177]100[167]n[178]100
1289 [139]n[179]0[167]n[178]0
1290 [137]1180
1300 c[178]c[170]1:[139]w[178]4[176]w[178]5[167]tp[178]tp[170]p4:[143] wertungsgaenge
1301 [139]ws[178]2[167]n[178]n[170](6[171]c):[139]v$[178]"mid$"[167]fp[178]fp[170](11[171]c)
1302 s(c)[178]p4:s$(c)[178]vn$:l$(c)[178]nn$:w1(c)[178]w4:p8[178]p4:p4[178]0:[139]ws[178]2[167]ap[178]ap[170](11[171]c)
1303 m$(c)[178]n$:[139]c[178]10[167]1350
1304 [137]1210
1305 c[178]c[170]1:s(c)[178]s1:s$(c)[178]s1$:l$(c)[178]l1$:w1(c)[178]w1:p4(z)[178]s1:p(z)[178]0:m$(c)[178]ma$
1306 [139]w[178]4[176]w[178]5[167]t1(z)[178]t1(z)[170]s1:[139]v$[178]"mid$"[167]f4(z)[178]f4(z)[170](11[171]c)
1307 [139]ws[178]2[167]a4(z)[178]a4(z)[170](11[171]c)
1308 [139]c[178]10[167]1350
1309 x1[178]0:[137]1180
1310 c[178]c[170]1:s(c)[178]s2:s$(c)[178]s2$:l$(c)[178]l2$:w1(c)[178]w2:p6(r)[178]s2:p2(r)[178]0:m$(c)[178]mb$
1311 [139]w[178]4[176]w[178]5[167]t2(r)[178]t2(r)[170]s2:[139]v$[178]"mid$"[167]f5(r)[178]f5(r)[170](11[171]c)
1312 [139]ws[178]2[167]a5(r)[178]a5(r)[170](11[171]c)
1313 [139]c[178]10[167]1350
1314 x2[178]0:[137]1180
1315 c[178]c[170]1:s(c)[178]s3:s$(c)[178]s3$:l$(c)[178]l3$:w1(c)[178]w3:p7(k)[178]s3:p3(k)[178]0:m$(c)[178]mc$
1316 [139]w[178]4[176]w[178]5[167]t3(k)[178]t3(k)[170]s3:[139]v$[178]"mid$"[167]f6(k)[178]f6(k)[170](11[171]c)
1317 [139]ws[178]2[167]a6(k)[178]a6(k)[170](11[171]c)
1318 [139]c[178]10[167]1350
1319 x3[178]0:[137]1180
1350 [139]rc$[178]"c"[167]5005
1351 [141]9998:[153]ws".str$urchgang usrusrusrusrusrusrusrusrusrusrusrusrusr"
1352 [153]"(NULL)pringer/(NULL)ation (NULL)eite/(NULL)unkte":c[178]0
1353 [141]9920
1354 [129]z[178]1[164]10
1355 [153]z:[153]"on."[200](s$(z),1)"."l$(z)" ("[200](m$(z),3)")
1356 print"[145]"int(w1(z)):ifz=1andws=2thengosub15000
1357 print"[145]m /"s(z)
1358 nextz
1359 s(10)=0:gosub9996
1360 ifws=2then1370
1361 ws=ws+1:goto1260
1370 rem nachwettnull
1371 we$="":dn$="":ws=0
1372 forz=1to10
1373 dn$(z)=""
1374 nextz
1382 forz=1to10
1383 d2$(z)=""
1384 nextz
1392 forz=1to9
1393 d3$(z)=""
1394 nextz
1395 ta=ta+1:ifre$="[202]"thenreturn
1396 ifta=2then1400
1397 x1=0:x2=0:x3=0:s1=9999:s2=9999:s3=9999:gosub9998
1398 ifrc$="c"thengoto154
1399 print"[209]ualifikation 2.[212]ag: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]":goto1103
1400 v$="":rem differenzierung
1401 ifw=5then1410
1402 ifw=16then1510
1403 ifra$="[202]"then200
1404 ifra$="[215]m"thengoto3010
1405 ifrc$="c"then150
1406 ifra$="wm"then1408
1407 ifrd$="[202]"then200
1408 t=8:goto150
1409 t=7:goto150
1410 iftb=1then1407:rem tourneewertung
1411 gosub9998:print"[212]ournee - [199]esamtwertung: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1412 gosub2200
1413 x1=0:x2=0:x3=0:ra$="[202]":rb$="[202]":goto1180
1510 iftb=1then1407:rem flugwertung
1511 gosub9998:print"[198]liegen - [199]esamtwertung: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1512 gosub2300
1513 x1=0:x2=0:x3=0:ra$="[202]":rb$="[202]":goto1180
2000 rem rangliste
2001 gosub9998:print"[210]angliste [183][183][183][183][183][183][183][183][183]":gosub2100
2002 x1=0:x2=0:x3=0:ra$="[202]":rd$="[202]":goto1180
2070 print"[211]pringer/[206]ation [208]unkte":ifxa=1thenreturn
2071 print"[145][145]":gosub9920:c=0:rb$=""
2072 forz=1to10
2073 printz:print"[145]. "left$(s$(z),1)"."l$(z)" ("left$(m$(z),3)")
2075 [153]"on"s(z):[139]z[178]1[167][141]6000
2076 [130]z
2077 [141]9996
2079 ws[178]2:ta[178]1:tb[178]1:[137]1370
2100 [143] umleitung
2102 [129]z[178]1[164]10
2103 dn$(z)[178]"ok":p1[178]a4(z):[141]1113
2104 [130]z
2112 [129]v[178]1[164]10
2113 d2$(v)[178]"ok":p1[178]a5(v):[141]1133
2114 [130]v
2122 [129]x[178]1[164]10
2123 d3$(x)[178]"ok":p1[178]a6(x):[141]1153
2124 [130]x
2125 dn$[178]"ok":p1[178]ap:[141]1173
2126 [142]
2200 [143] umleitung
2202 [129]z[178]1[164]10
2203 dn$(z)[178]"ok":p1[178]t1(z):t1(z)[178]0:[141]1113
2204 [130]z
2212 [129]v[178]1[164]10
2213 d2$(v)[178]"ok":p1[178]t2(v):t2(v)[178]0:[141]1133
2214 [130]v
2222 [129]x[178]1[164]10
2223 d3$(x)[178]"ok":p1[178]t3(x):t3(x)[178]0:[141]1153
2224 [130]x
2225 dn$[178]"ok":p1[178]tp:tp[178]0:[141]1173
2226 [142]
2300 [143] umleitung
2302 [129]z[178]1[164]10
2303 dn$(z)[178]"ok":p1[178]f4(z):f4(z)[178]0:[141]1113
2304 [130]z
2312 [129]v[178]1[164]10
2313 d2$(v)[178]"ok":p1[178]f5(v):f5(v)[178]0:[141]1133
2314 [130]v
2322 [129]x[178]1[164]10
2323 d3$(x)[178]"ok":p1[178]f6(x):f6(x)[178]0:[141]1153
2324 [130]x
2325 dn$[178]"ok":p1[178]fp:fp[178]0:[141]1173
2326 [142]
3000 [139]w[178]13[167]3010:[143] wm
3001 [141]9998:[153]"(NULL)(NULL)-(NULL)leinschanze"y[170]al": usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
3002 x1[178]0:x2[178]0:x3[178]0:s1[178]9999:s2[178]9999:s3[178]9999:ra$[178]"wm":ta[178]1:ui[178]2:[137]1103
3010 [141]9998:[153]"(NULL)(NULL)-chr$rossschanze"y[170]al": usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
3011 x1[178]0:x2[178]0:x3[178]0:s1[178]9999:s2[178]9999:s3[178]9999:ra$[178]"w(NULL)":ta[178]1:[137]1103
5000 [143] pseudo-wettkampf
5001 we$[178]"ok":c[178]0:ws[178]ws[170]1:[137]1260
5005 c[178]0:s(10)[178]0:[139]ws[178]2[175]t[178]7[167]ta[178]1:[139]ws[178]2[175]t[178]7[167]ui[178]2:[141]9998:[141]9996
5006 [139]ws[178]2[167]1370
5007 ws[178]ws[170]1:[137]1260
6000 [139]w[178]5[167]6003
6001 [139]w[178]16[167]6004
6002 [142]
6003 ot$(al[171]19)[178]s$(z):t8$(al[171]19)[178]l$(z):t9$(al[171]19)[178]m$(z):[142]
6004 fw$(al[171]19)[178]s$(z):f8$(al[171]19)[178]l$(z):f9$(al[171]19)[178]m$(z):[142]
7000 p4[178][171]999:[137]1180
7005 [139]ui[178]2[167]157
7006 [141]9998:[137]1000
8032 z[178]1:[141]1104:[142]
8033 z[178]2:[141]1104:[142]
8034 z[178]3:[141]1104:[142]
8035 z[178]4:[141]1104:[142]
8036 z[178]5:[141]1104:[142]
8037 z[178]6:[141]1104:[142]
8052 z[178]7:[141]1104:[142]
8053 z[178]8:[141]1104:[142]
8054 z[178]9:[141]1104:[142]
8055 z[178]10:[141]1104:[142]
8056 v[178]1:[141]1124:[142]
8057 v[178]2:[141]1124:[142]
8072 v[178]3:[141]1124:[142]
8073 v[178]4:[141]1124:[142]
8074 v[178]5:[141]1124:[142]
8075 v[178]6:[141]1124:[142]
8076 x[178]7:[141]1144:[142]
8092 v[178]7:[141]1124:[142]
8093 v[178]8:[141]1124:[142]
8094 v[178]9:[141]1124:[142]
8095 v[178]10:[141]1124:[142]
8096 x[178]1:[141]1144:[142]
8097 x[178]8:[141]1144:[142]
8098 x[178]9:[141]1144:[142]
8112 x[178]2:[141]1144:[142]
8113 x[178]3:[141]1144:[142]
8114 x[178]4:[141]1144:[142]
8115 x[178]5:[141]1144:[142]
8116 x[178]6:[141]1144:[142]
9700 [143] nullmachen
9701 [129]z[178]1[164]10
9702 we(z)[178]0:h(z)[178]0:p(z)[178]0:p4(z)[178]0
9703 [130]z
9711 [129]z[178]1[164]10
9712 w2(z)[178]0:h2(z)[178]0:p2(z)[178]0:p6(z)[178]0
9713 [130]z
9721 [129]z[178]1[164]9
9722 w3(z)[178]0:h3(z)[178]0:p3(z)[178]0:p7(z)[178]0
9723 [130]z
9725 w4[178]0:h4[178]0:p4[178]0:p8[178]0:[139]n[177]100[167]n[178]100
9726 [139]n[179]0[167]n[178]0
9728 [142]
9800 [141]9998
9801 [153]"peekitte warten ..."
9802 [142]
9900 [143] zufallsgenerator
9910 [153]"(NULL)tatistik: usrusrusrusrusrusrusrusrusr":[142]
9920 [153]"onusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr":[142]
9990 z1[178]ug[170][187](0)[172](og[171]ug):z2[178][181](z1)
9991 [142]
9996 [161]a$:[139]a$[178]""[167]9996
9997 [142]
9998 [153]"loadprint# asclyin' left$igh "
9999 [142]
10000 [143] daten zu beginn
10001 x[178]1
10002 e$(x)[178]"(NULL)raining"
10003 x[178]x[170]1
10004 [139]x[178]11[167]10010
10006 [137]10002
10010 x[178]1
10011 f$(x)[178]"(NULL)raining"
10012 x[178]x[170]1
10013 [139]x[178]2[176]x[178]3[167]10020
10014 [139]x[178]7[167][142]
10015 [137]10011
10020 f$(x)[178]"(NULL)(NULL)"
10021 x[178]x[170]1
10022 [137]10013
10712 rc$[178]"c":[141]9800:[137]1100
11000 [143] springeranfang
11001 [129]z[178]1[164]29:[139]z[177]10[167]11004
11002 a(z)[178]a:b(z)[178]b:f(z)[178]f:l(z)[178]l:n(z)[178]n
11003 [130]z
11004 v[178]z[171]10:[139]z[177]20[167]11007
11005 a2(v)[178]a:b2(v)[178]b:f2(v)[178]f:l2(v)[178]l:n2(v)[178]n
11006 [130]z
11007 x[178]z[171]20
11008 a3(x)[178]a:b3(x)[178]b:f3(x)[178]f:l3(x)[178]l:n3(x)[178]n
11009 [130]z
11010 [143] springernamen
11011 v1$(1)[178]"(NULL)azuyoshi":n1$(1)[178]"ascunaki":m1$(1)[178]"mid$apan"
11012 v1$(2)[178]"(NULL)akanobu":n1$(2)[178]"(NULL)kabe":m1$(2)[178]"mid$apan"
11013 v1$(3)[178]"left$iroyah":n1$(3)[178]"(NULL)aitoh":m1$(3)[178]"mid$apan"
11014 v1$(4)[178]"(NULL)oriaki":n1$(4)[178]"(NULL)asai":m1$(4)[178]"mid$apan"
11015 v1$(5)[178]"(NULL)asahiro":n1$(5)[178]"left$arada":m1$(5)[178]"mid$apan"
11016 v1$(6)[178]"(NULL)enji":n1$(6)[178]"(NULL)uda":m1$(6)[178]"mid$apan"
11017 v1$(7)[178]"str$ieter":n1$(7)[178]"(NULL)homa":m1$(7)[178]"chr$ermany"
11018 v1$(8)[178]"mid$ens":n1$(8)[178]"(NULL)eissflog":m1$(8)[178]"chr$ermany"
11019 v1$(9)[178]"lenhristoph":n1$(9)[178]"str$uffner":m1$(9)[178]"chr$ermany"
11020 v1$(10)[178]"(NULL)artin":n1$(10)[178]"(NULL)chmitt":m1$(10)[178]"chr$ermany"
11021 v2$(1)[178]"left$ans-mid$oerg":n2$(1)[178]"mid$aekle":m2$(1)[178]"chr$ermany"
11022 v2$(2)[178]"left$orst":n2$(2)[178]"left$aschmich":m2$(2)[178]"chr$ermany"
11023 v2$(3)[178]"atnri-(NULL)ekka":n2$(3)[178]"(NULL)ikkola":m2$(3)[178]"ascinland"
11024 v2$(4)[178]"(NULL)oni":n2$(4)[178]"(NULL)ieminen":m2$(4)[178]"ascinland"
11025 v2$(5)[178]"(NULL)atti":n2$(5)[178]"(NULL)ykaenen":m2$(5)[178]"ascinland"
11026 v2$(6)[178]"mid$ani":n2$(6)[178]"(NULL)oininen":m2$(6)[178]"ascinland"
11027 v2$(7)[178]"(NULL)ylvain":n2$(7)[178]"ascreiholz":m2$(7)[178]"(NULL)uisse"
11028 v2$(8)[178]"mid$im":n2$(8)[178]"left$olland":m2$(8)[178]"(NULL)(NULL)atn"
11029 v2$(9)[178]"mid$an":n2$(9)[178]"peekokloev":m2$(9)[178]"(NULL)weden"
11030 v2$(10)[178]"(NULL)rimosz":n2$(10)[178]"(NULL)eterka":m2$(10)[178]"(NULL)lowenia"
11031 vn$(1)[178]"atndam":nn$(1)[178]"(NULL)alysz":mm$(1)[178]"(NULL)oland"
11032 vn$(2)[178]"(NULL)artin":nn$(2)[178]"left$oellwarth":mm$(2)[178]"atnustria"
11033 vn$(3)[178]"(NULL)einhard":nn$(3)[178]"(NULL)chwarzenberger":mm$(3)[178]"atnustria"
11034 vn$(4)[178]"atnndreas":nn$(4)[178]"chr$oldberger":mm$(4)[178]"atnustria"
11035 vn$(5)[178]"valrnst":nn$(5)[178]"(NULL)ettori":mm$(5)[178]"atnustria"
11036 vn$(6)[178]"atnndreas":nn$(6)[178]"ascelder":mm$(6)[178]"atnustria"
11037 vn$(7)[178]"mid$anne":nn$(7)[178]"atnhonen":mm$(7)[178]"ascinland"
11038 vn$(8)[178]"valspen":nn$(8)[178]"peekredesen":mm$(8)[178]"(NULL)orway"
11039 vn$(9)[178]"(NULL)icolas":nn$(9)[178]"str$esum":mm$(9)[178]"ascrance"
11040 [142]
12000 [143] jahr
12001 al[178]al[170]1:w[178]1:xa[178]1:[141]13000:xa[178]0:[139]ge[178]al[167]21000
12002 ap[178]0:a[178]a[173]2:b[178]b[173]2:f[178]f[173]2:l[178]l[173]2:a[178][181](a):b[178][181](b):f[178][181](f):l[178][181](l)
12003 n[178][181](n)
12004 [129]z[178]1[164]10
12005 a4(z)[178]0:t1(z)[178]0:f4(z)[178]0
12006 a(z)[178]a(z)[173]2:a(z)[178][181](a(z))
12007 b(z)[178]b(z)[173]2:b(z)[178][181](b(z))
12008 f(z)[178]f(z)[173]2:f(z)[178][181](f(z))
12009 l(z)[178]l(z)[173]2:l(z)[178][181](l(z))
12010 n(z)[178]n(z)[173]2:n(z)[178][181](n(z))
12011 [130]z
12013 [129]z[178]1[164]10
12014 a5(z)[178]0
12015 a2(z)[178]a2(z)[173]2:a2(z)[178][181](a2(z))
12016 b2(z)[178]b2(z)[173]2:b2(z)[178][181](b2(z))
12017 f2(z)[178]f2(z)[173]2:f2(z)[178][181](f2(z))
12018 l2(z)[178]l2(z)[173]2:l2(z)[178][181](l2(z))
12019 n2(z)[178]n2(z)[173]2:n2(z)[178][181](n2(z))
12020 [130]z
12023 [129]z[178]1[164]10
12024 a6(z)[178]0
12025 a3(z)[178]a3(z)[173]2:a3(z)[178][181](a3(z))
12026 b3(z)[178]b3(z)[173]2:b3(z)[178][181](b3(z))
12027 f3(z)[178]f3(z)[173]2:f3(z)[178][181](f3(z))
12028 l3(z)[178]l3(z)[173]2:l3(z)[178][181](l3(z))
12029 n3(z)[178]n3(z)[173]2:n3(z)[178][181](n3(z))
12030 [130]z
13000 [141]9998:[153]"mid$ahres-(NULL)angliste usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
13001 [141]2100:x1[178]0:x2[178]0:x3[178]0:ra$[178]"mid$":[141]1180
13003 [141]9920:c[178]0:rb$[178]""
13004 [129]z[178]1[164]10
13005 [153]z:[153]"on. "[200](s$(z),1)"."l$(z)" ("[200](m$(z),3)")
13006 print"[145]"s(z)
13007 nextz
13008 gosub9996:re$="[202]":gosub1370
13009 return
15000 rem z=1
15001 ifra$="wm"then15010
15003 ifra$="w[205]"then15030
15004 return
15010 wm$(al-19)=s$(1):w8$(al-19)=l$(1):w9$(al-19)=m$(1)
15011 return
15030 mw$(al-19)=s$(1):m8$(al-19)=l$(1):m9$(al-19)=m$(1)
15031 return
20000 gosub9800:rem computerspringer
20001 forz=1to29:ifz>10then20101
20002 ug=1:og=5:gosub9990
20003 a1=z2
20004 ug=1:og=7:gosub9990
20005 ifz2=1then20014
20006 ifz2=2then20014
20007 ifz2=3then20012
20008 ifz2=4then20012
20009 ifz2=5then20012
20010 ifz2=6then20012
20011 ifz2=7then20014
20012 a(z)=a(z)+a1:ifa(z)>100thena(z)=100
20013 goto20022
20014 a(z)=a(z)-a1
20015 ifa(z)<0thena(z)=0
20022 ug=1:og=5:gosub9990
20023 b1=z2
20024 ug=1:og=7:gosub9990
20025 ifz2=1then20034
20026 ifz2=2then20034
20027 ifz2=3then20032
20028 ifz2=4then20032
20029 ifz2=5then20032
20030 ifz2=6then20032
20031 ifz2=7then20034
20032 b(z)=b(z)+b1:ifb(z)>100thenb(z)=100
20033 goto20042
20034 b(z)=b(z)-b1
20035 ifb(z)<0thenb(z)=0
20042 ug=1:og=5:gosub9990
20043 f1=z2
20044 ug=1:og=7:gosub9990
20045 ifz2=1then20054
20046 ifz2=2then20054
20047 ifz2=3then20052
20048 ifz2=4then20052
20049 ifz2=5then20052
20050 ifz2=6then20052
20051 ifz2=7then20054
20052 f(z)=f(z)+f1:iff(z)>100thenf(z)=100
20053 goto20062
20054 f(z)=f(z)-f1
20055 iff(z)<0thenf(z)=0
20062 ug=1:og=5:gosub9990
20063 l1=z2
20064 ug=1:og=7:gosub9990
20065 ifz2=1then20074
20066 ifz2=2then20074
20067 ifz2=3then20072
20068 ifz2=4then20072
20069 ifz2=5then20072
20070 ifz2=6then20072
20071 ifz2=7then20074
20072 l(z)=l(z)+l1:ifl(z)>100thenl(z)=100
20073 goto20082
20074 l(z)=l(z)-l1
20075 ifl(z)<0thenl(z)=0
20082 ug=1:og=5:gosub9990
20083 n1=z2
20084 ug=1:og=7:gosub9990
20085 ifz2=1then20094
20086 ifz2=2then20094
20087 ifz2=3then20092
20088 ifz2=4then20092
20089 ifz2=5then20092
20090 ifz2=6then20094
20091 ifz2=7then20094
20092 n(z)=n(z)+n1:ifn(z)>100thenn(z)=100
20093 goto20096
20094 n(z)=n(z)-n1
20095 ifn(z)<0thenn(z)=0
20096 nextz
20101 v=z-10:ifz>20then20201
20102 ug=1:og=5:gosub9990
20103 a1=z2
20104 ug=1:og=7:gosub9990
20105 ifz2=1then20114
20106 ifz2=2then20114
20107 ifz2=3then20112
20108 ifz2=4then20112
20109 ifz2=5then20112
20110 ifz2=6then20112
20111 ifz2=7then20114
20112 a2(v)=a2(v)+a1:ifa2(v)>100thena2(v)=100
20113 goto20122
20114 a2(v)=a2(v)-a1
20115 ifa2(v)<0thena2(v)=0
20122 ug=1:og=5:gosub9990
20123 b1=z2
20124 ug=1:og=7:gosub9990
20125 ifz2=1then20134
20126 ifz2=2then20134
20127 ifz2=3then20132
20128 ifz2=4then20132
20129 ifz2=5then20132
20130 ifz2=6then20132
20131 ifz2=7then20134
20132 b2(v)=b2(v)+b1:ifb2(v)>100thenb2(v)=100
20133 goto20142
20134 b2(v)=b2(v)-b1
20135 ifb2(v)<0thenb2(v)=0
20142 ug=1:og=5:gosub9990
20143 f1=z2
20144 ug=1:og=7:gosub9990
20145 ifz2=1then20154
20146 ifz2=2then20154
20147 ifz2=3then20152
20148 ifz2=4then20152
20149 ifz2=5then20152
20150 ifz2=6then20152
20151 ifz2=7then20154
20152 f2(v)=f2(v)+f1:iff2(v)>100thenf2(v)=100
20153 goto20162
20154 f2(v)=f2(v)-f1
20155 iff2(v)<0thenf2(v)=0
20162 ug=1:og=5:gosub9990
20163 l1=z2
20164 ug=1:og=7:gosub9990
20165 ifz2=1then20174
20166 ifz2=2then20174
20167 ifz2=3then20172
20168 ifz2=4then20172
20169 ifz2=5then20172
20170 ifz2=6then20172
20171 ifz2=7then20174
20172 l2(v)=l2(v)+l1:ifl2(v)>100thenl2(v)=100
20173 goto20182
20174 l2(v)=l2(v)-l1
20175 ifl2(v)<0thenl2(v)=0
20182 ug=1:og=5:gosub9990
20183 n1=z2
20184 ug=1:og=7:gosub9990
20185 ifz2=1then20194
20186 ifz2=2then20194
20187 ifz2=3then20192
20188 ifz2=4then20192
20189 ifz2=5then20192
20190 ifz2=6then20194
20191 ifz2=7then20194
20192 n2(v)=n2(v)+n1:ifn2(v)>100thenn2(v)=100
20193 goto20196
20194 n2(v)=n2(v)-n1
20195 ifn2(v)<0thenn2(v)=0
20196 nextz
20201 x=z-20
20202 ug=1:og=5:gosub9990
20203 a1=z2
20204 ug=1:og=7:gosub9990
20205 ifz2=1then20214
20206 ifz2=2then20214
20207 ifz2=3then20212
20208 ifz2=4then20212
20209 ifz2=5then20212
20210 ifz2=6then20212
20211 ifz2=7then20214
20212 a3(x)=a3(x)+a1:ifa3(x)>100thena3(x)=100
20213 goto20222
20214 a3(x)=a3(x)-a1
20215 ifa3(x)<0thena3(x)=0
20222 ug=1:og=5:gosub9990
20223 b1=z2
20224 ug=1:og=7:gosub9990
20225 ifz2=1then20234
20226 ifz2=2then20234
20227 ifz2=3then20232
20228 ifz2=4then20232
20229 ifz2=5then20232
20230 ifz2=6then20232
20231 ifz2=7then20234
20232 b3(x)=b3(x)+b1:ifb3(x)>100thenb3(x)=100
20233 goto20242
20234 b3(x)=b3(x)-b1
20235 ifb3(x)<0thenb3(x)=0
20242 ug=1:og=5:gosub9990
20243 f1=z2
20244 ug=1:og=7:gosub9990
20245 ifz2=1then20254
20246 ifz2=2then20254
20247 ifz2=3then20252
20248 ifz2=4then20252
20249 ifz2=5then20252
20250 ifz2=6then20252
20251 ifz2=7then20254
20252 f3(x)=f3(x)+f1:iff3(x)>100thenf3(x)=100
20253 goto20262
20254 f3(x)=f3(x)-f1
20255 iff3(x)<0thenf3(x)=0
20262 ug=1:og=5:gosub9990
20263 l1=z2
20264 ug=1:og=7:gosub9990
20265 ifz2=1then20274
20266 ifz2=2then20274
20267 ifz2=3then20272
20268 ifz2=4then20272
20269 ifz2=5then20272
20270 ifz2=6then20272
20271 ifz2=7then20274
20272 l3(x)=l3(x)+l1:ifl3(x)>100thenl3(x)=100
20273 goto20282
20274 l3(x)=l3(x)-l1
20275 ifl3(x)<0thenl3(x)=0
20282 ug=1:og=5:gosub9990
20283 n1=z2
20284 ug=1:og=7:gosub9990
20285 ifz2=1then20294
20286 ifz2=2then20294
20287 ifz2=3then20292
20288 ifz2=4then20292
20289 ifz2=5then20292
20290 ifz2=6then20294
20291 ifz2=7then20294
20292 n3(x)=n3(x)+n1:ifn3(x)>100thenn3(x)=100
20293 goto20296
20294 n3(x)=n3(x)-n1
20295 ifn3(x)<0thenn3(x)=0
20296 nextz
20297 return
21000 rem ende
21001 gosub9998:print"[196]as [203]arriereende ist erreicht ..."
21002 gosub9996
21003 end